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LL II SS 
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LL I] ss 
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LL II SS 
LL I] SS 
LL I] SS 
LL I] $s 
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ZTITL Uf "WRITELN procedure’ 
= '1-002' ! File: PASWRITEL.832 Edit: SBL1002 


MODULE PASSWRITELN2 ( 
¢ ENT 
BEGIN 


edie gon init a oaene 
ie 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

'® ALL RIGHTS RESERVED. 


® 
* 
* 
® 
4 ® 
Hd ae SOFTWARE JS FURNISHED UNDER A LICENSE AND MAY BE USED AND sgt ba * 
tt ONLY IN ACCORDANCE WITH THE TERMS OF SUCH beCENae AND WITH THE * 
'* INCLUSION OF THE ABOVE pid NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!t TRANSFERRED. ® 
4 ® 
Hd phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
Hid SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
1® CORPORATION. * 

® 

® 

® 

® 

* 

* 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'@ 
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+ 
FACILITY: Pascal Language Support 
ABSTRACT: 


This module contains PASSWRITELN2, which implements the 
VAX-11 Pascal WRITELN procedure. 


ENVIRONMENT: User mode - AST reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
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BRe MODIFIED BY: 

0044 1-001 = Original. SBL 1-April-1981 

Ooee 1-002 - Add NOWRITE attribute to PFD_WRITEV. SBL 24-May-1982 
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TELN procedure 16-Sep-1984 02:26: AX-11 8B 
SWR TELNS - WRITELN procedure 18-308- 1382 95:48:68 PASRTL. 
ZSBITL ‘PASSWRITELN2 - be procedure’ 
GLOBAL Woy ie oC Meoee TELN2 ( 


PASSWRITELN2 -32 V4.0-74 | 
at ss-32 V4.0 Page ;| 


li § -7 ¢ 
SRCJPASWRITEL.B352;1 (3) | 


ys 


' Do a WRITELN 
SPASSPFV_FILE_VARIABLE, ' File variable 
! Error unwind address 


RROR 
): NOVALUE = 


| 
} 
| 
| 
writes the current record buffer of a textfile to the file. 


SIDE EFFECTS: 
If the file is the standard file INPUT or OUTPUT, it is implic‘tly opened. 
SIGNALLED ERRORS: ' 


0 le4 
9 FUNCTIONAL DESCRIPTION: 
i ! PASSWRITELN2 implements the VAX-11 Pascal WRITELN procedure. It 
1 i 
: CALLING SEQUENCE: 
\ CALL PASSWRITELN2 (PFV.mr.r C, ERROR.j.r]) 
FORMAL PARAMETERS: 
2 PFV - The Pascal File Variable (PFV) passed by reference. 
5 The structure of the PFV is defined in PASPFV.REQ. 
2 i ERROR - Optional. If specified, the address to unwind to 
§ in case of an error. 
2 ; IMPLICIT INPUTS: 
2 NONE 
5 IMPLICIT OUTPUTS: 
3 i NONE 
3 ! 
ROUTINE VALUE: 
i 
5 
i 
i 
i 
i 
i 
i 
i 
i 


BEGIN 


OCAL 
FCB: REF SPASS$FCB_CONTROL_BLOCK, ! File control block 
PFV_ADDR: VOLATILE, ' Enable argument 
UNWIND_ACT: VOLATILE, } 


' Enable argument 
ERROR_ADDR: VOLATILE; 


! Enable argument 


BUILTI 


N 
] 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
LTIN 
ACTUAL COUNT ; 
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i tet PASSURITELN COU URITELN procedure 1$-ep-1984 95:85:58 PASRIL  SRESPASUAG TEL 682: siggy (33 | 
5 ENABLE | 
2 | PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 
6 IF ACTUALCOUNT () GEQU 2 
é ERROR_ADDR = .ERROR; ! Set unwind address 
PFV_ADDR = PFV CPFVSR_PFV); ! Set PFV address 


14 
Validate PFV and get PFV. 


PASSSVALIDATE_PFV (PFV CPFVSR_PFV]; FCB); 


+ 
Set unwind action to unlock file. 


UNWIND_ACT = PASSK_UNWIND_UNLOCK; 


14 
Do common initialization. 


PASSSINIT_WRITE (PFV CPFVSR_PFV], FCB CFCBSR_FCB); FCB); 


14 
Call PASSSWRITELN to do the work. 


PASSSWRITELN (PFV CPFVSR_PFV), FCB CFCBSR_FCBI); 


4 

' Indicate successful completion 
! Undefine the file buffer 
Unlock the file variable. 
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g 
9 FCB CFCBSL_STATUS) = 0; 
PFV CPFVS$SV~DFB) = 0; 
0 PFV CPFVSV<LOCK] = 0; 
: RETURN; 
0 END; ! End of routine PASS$SWRITELN2 


-TITLE PASS$WRITELN2 WRITELN procedure 
-IDENT \1-002\ 


-PSECT _PASSCODE,NOWRT, SHR, PIC,2 


-BYTE 4d 
19 00004 -BYTE : 
00# 00005 -BYTE ; 


WRITELN procedure 
PASSWRITELN2 = WRITELN procedure 


16- 
14- 
20 67 6E 69 72 7% 73 9D OB O00 


PASSWRITELN2 
1-002 


oors 00000 
5E 98 C2 0000 
E be $88 
Of AE 7C 000 
6D 002C CF DE OO00A 
02 6C 91 OO00F 
04 1F Boog 
6E 08 AC DO 00014 
56 04 AC 00 00018 
08 AE 56 DO 0001C 
000000006 00 16 00020 
04 «AE 4 8 4 6 
0000V 002A 
0000v 30 BRED 
D4 A? D4 00030 
06 A6 8002 8F AA 00033 
04 00039 
0000 0003A 
50 08 AC 00 0003C 
50 04 AQ 00 00040 
FL AO YF 00044 
F8 AQ 9F 00047 
FC AO 9F QOO4A 
9 DD 0004D 
E DD 0004F 
7E 04 AC 7D 00051 
000000006 00 03 FB 00055 
04 0005C 
: Routine Size: 93 bytes, Routine Base: _PASSCODE + 0015 
; 205 0266 1 
; 206 0267 1 !<BLF/PAGE> 


1$: 


2s: 


AX-11 Bliss-32 V4.0 
PASRTL.SRC PASWRITEL. 3 231 


; 45, 115, 116, 114, 105, 110, 

PASSURITELNZ PASSSWRITELN 
PASSSINIT E 

PASSSEND On TE PAS$SDO_WRITEV 

PAS$$10_RANDLER 

PASSSVACIDATES _PFV 

PASSWRITELNZ, Save R2,R3,R4,R5,R6,R7 


ERROR ADDR 
UNUIND ACT 


ca) i 
1$ 


ERROR, ERROR_ADDR 
PFV, R 


R6, PFV_ADDR 
PASSSVALIDATE PFV 


103, 45 


#32770, 6(R6) 
Save nothing 


4(RO), RO 
ERROR ADDR 
UNWIND_ACT 
PFV_ADBR 


SP 
4(AP), =(SP) 
#3, PAS$S$IO HANDLER 


0223 


Oooooceoeo oo 
PIPIPOPOPOPYNYN Porro 
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SURIFECR  c ieternalty callable WRITELN ees SC eT ets Py Tet Pee — 


1 SSBTTL sont een Tele = Internally callable WRITELN ' 
GLOBAL ROUTINE PASSSWRITELN ( 
PFV: REF SPASSPFV_FILE_VARIABLE, ! File variable 
FCB: REF SPAS$FCB’CONTROL_BLOCK ! File control block 
): JSB_WRITELN NOVALUE = 


PASSWRITELN2 
1-02 


oe 
FUNCTIONAL DESCRIPTION: 


PASSSWRITELN implements the VAX-11 Pascal WRITELN procedure. It 
writes the current record buffer of a textfile to the file. 


CALLING SEQUENCE: 
JSB_WRITELN PASSSWRITELN (PFV.mr.r, FCB.mr.r) 
FORMAL PARAMETERS: 


PFV - The Pascal File Variable (PFV) passed a reference. 
The structure of the PFV is defined in PASPFV.REQ. 


' 

i 

i 

i 

i 

i 

} FCB - The File Control Block for the file. 
{ IMPLICIT INPUTS: 

It is assumed that the file has been verified to be a textfile and 
that it is locked. 
i IMPLICIT OUTPUTS: 

NONE 

{ ROUTINE VALUE: 

: NONE 

i SIDE EFFECTS: 

If the file is the standard file INPUT or OUTPUT, it is implicitly opened. 
i SIGNALLED ERRORS: 

i. 


LINVALEXC = LINELIMIT value exceeded 
ERRDURWRI - error during WRITELN 
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BEGIN 


BIND 
RAB = FCB: REF SPASSFCB_CONTROL_BLOCK; ! RAB is also FCB address 


PAE QDMA ITU BB BBE EE BE EWAN WIWNI IIR PUDININININPINDDY) 2 OS OS SS "OO 
QoS CS BRS RNS SONA EWN ODO NOUR UN OO Os OUP OO ODN UME UII ODSe 


'¢ 
Check for Linelimit exceeded and update remaining Line count. 


PROPOPONPOMONMONONONOR 8 2 tt a 
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IF .FCB CFCBSL_LINELIMIT] GEQ 0 ! Linelimit enabled? 


Setiemmmnennmemieniiiats “4 


'+ 
Do the $PUT and check for errors. 


IF NOT $PASSRMS_OP ($PUT (RAB=.RAB)) 
SPASSIO_ERROR (PAS$_ERRDURWRI); 
14 


i Cancel the "truncate-on-put" option which may have been set by 
a REWRITE. 


Ww 
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PASSWRITELN2 WRITELN procedure 16-Sep-1984 02:26: AX-11 Bliss-32 V4.0-74 P 7 P 
002 PASSSURIGELN' Internally callable WRITELN 1o=8ee=13Re 93:85:83 EPAsate gaeSpaguaiion oS2:1 ~~ 1 
65 5 THEN : 
68 8 IF .FCB CFCBSL_LINELIMIT] EQL 0 ! Linelimit exceeded? ‘ 
68 8 SPASSIO_ERROR (PASS$_LINVALEXC,0) : 
iA! 9 FCB CFCBSL_LINELIMIT] = .FCB CFCBSL_LINELIMITJ - 1; | ‘ 
7 + : 
7 8 : Set up record pointer in RAB for $PUT. ‘ 
75 0335 : ; 
76 8 $ RAB FRABSL ROE = .FCB PECBSA RECORD BEG]: : 
ag ttt RAB LRABSW_RSZJ = .FCB LFCBSA_RECORD_CUR] - .FCB CFCBSA_RECORD_BEGI; ° 
Mg 0339 1+ : 
80 tre ! Reset record buffer. : 
81 0 4) !- $ 
o O36 ; 
83 0345 FCB CFCBSA_RECORD_CUR] = .FCB CFCBSA_RECORD_BEG); : 
aH 0345 '¢ : 
Hy b3e9 } If prompting enabled, set carriage control appropriately. : 
$88 0348 : 
289 0349 IF .FCB CFCBSV_PROMPT_ENABLE) ; 
soy 0350 THEN 3 
91 0351 IF .FCB CFCBSV_PARTIAL_LINEJ ; 
$36 0326 N : 
sar Be27 FCB CFCBSW_PROMPT_CC] = FCBSK_CC_NLCR ! Nothing before, CR after : 
335 O3ee FCB CFCBSW_PROMPT_CC] = FCBSK_CC_LFCR; ! LF before, CR after 2 
$39 0357 ; 
298 0358 
99 0359 
00 0360 
01 0361 
Oe 0306 
0 036 
04 
05 
06 
0. 


RAB CRABSV_TPT] = 0; 

+ 

Indicate no partial Line. 

FCB CFCBSV_PARTIAL_LINEJ = 0; 

RETURN; 

END; ' End of routine PASS$SWRITELN 
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WRITELN 
PASSSWRITELN = Internally callable WRITELN 


3; Routine Size: 


115 bytes, 


rocedure 


000000006 
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000000006 
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000000006 
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“ext PASSSSIGNAL, PASSK_LINVALEXC 


SYS$PUT, PASS$K_ERRDURWRI 


-32(F CB) 
es 


1$ 

=(SP) 

#PASSK LINVALEXC, -(SP) 
#2, PASSSSIGNAL 


-32(F CB) 


‘ 
= 
oo 
Tis bons Boa 
Tee we ee 


$ 
#29440, -6(F CB) 
#-29439, -6(F CB) 
#1, SYS$PUT 
SS$STATUS, 6$ 
S$STATUS. #98906 
-1(FCB), 4$ 
SSSTATUS, 6$ 
WPASSK_ERRDURWRI, -(SP) 
#1, PASSSSIGNAL 

) 


#2, 4(FCB 
#128, -3(FCB) 


-v 


» 34(FCB) 
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C 
ZSBITL 'PASSSINIT_WRITE = Common setup for WRITE procedures’ 
GLOBAL ROUTINE PASSSINIT_WRITE ' Common setu 
PFV: F SPA ' File variable 
FCB_IN: REF SPASSFCB CONTROL BLOCK; i Input FCB 
FCB: REF S$PASSFCB CONTROL BLOCK ' Output FCB 
): JSB_LINIT_WRITE NOVALUE = 


++ 
FUNCTIONAL DESCRIPTION: 
- a performs the common setup steps for all WRITE procedures. 
ese are: 
Verify that the file is a textfile. 
If it is the standard file OUTPUT or INPUT, open it. 
Verify that the file is in Generation mode. 
Resolve any lazy lookahead in progress. 
CALLING SEQUENCE: 
JSB_INIT_WRITE PASSSINIT_WRITE (PFV.mr.r, FCB_IN.mr.r; FCB)) 


FORMAL PARAMETERS: 


PFV - The Pascal File Variable (PFV) passed by reference in R2. 
The structure of the PFV is defined in PASPFV.REQ. 

FCB_IN - The File Control Block of the file, if any. The 
resultant FCB is passed back in the FCB parameter. 

FCB - The address of the File Control Block (FCB) is an 


output register parameter. 

IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

NONE 
SIDE EFFECTS: 

If the file is the standard file INPUT or OUTPUT, it is implicitly opened. 
SIGNALLED ERRORS: 

FILNOTTEX e is not a textfile 


- fil 
FILNOTOPE - Ate not open 


1 
i 
i 
i 
i 
i 
i 
i 
i 
3 
i 
i] 
i 
i 
i 
i 
i 
i 
i 
' 
i] 
i 
' 
i 
i 
i 
t 
i 
i 
i 
i 
i 
H 
i 
i 
i 
i 
i 
i 
i] 
i 
i 
5 
i 
F ILNOTGEN e is not in Generation mode 
le 


BEGIN 
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rocedure 1b-5¢ -1984 02:26: AX-11 Bliss-32 V4.0-74 P 
IT_WRITE = Common setup for WRITE proced 1 3007138 95:85:68 PASRTL. REIPASURITEL 69251 _ 
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PASSWRITELN2 WRITELN procedure 16-Sep- AX-11 Bliss-32 V4.0-74 Page 10 P 
ati PASSINIG. URITE = Common setup for WRITE proced 14- ~Sep- 1984 93: 85: 88 PASRTL  SREIPASURI TEL B92s1 - (5) 1 
; 381 440 ; 
$ 8 peat 1+ 3 
3; bres i Resolve lazy lookahead, if any. ‘ 
: 384 44 ie : 
3 385 444 ; 
; 86 D449 IF_NOT .PFV CPFVSV_VALIDJ : 
5 38 bc4? PASSSLOOK_AHEAD (PFV CPFVSR_PFV], FCB_IN CFCBSR_FCBJ; FCB); ‘ 
: 394 $680 l wortty thet the #4 
3 eri a e e is open. ° 
: $99 0451 . : 
.. bces : 
; Be ot IF WOT -PFV CPF V$V_OPEN] ! Not open : 
; 396 0455 2 NSPASSIO ERROR (PASS$_FILNOTOPE,0); : 
; 397 0456 3 
3 98 0457 '¢ F} 
; 399 0458 ! Verify that this is a textfile . 
; 400 0459 2 !- F 
3; 401 0460 2 F 
3 rt ree: 2 IF NOT .FCB CFCBSV_TEXTI ‘ 
3 404 046 § SPASSIO_ERROR (PASS_FILNOTTEX,0); ‘ 
; 405 0464 F 
; 406 0465 '¢ ; 
3; 407 0466 ne for Generation mode ° 
; 408 0467 2 : 
; 409 0468 § 3 
; 410 0469 IF - -FCB CFCBSV_GENERATION) . 
3; «6411 0470 2 é 
: tig 0471 2 "SPASSIO. ERROR (PAS$_FILNOTGEN,O); $ 
: 41 0472 2 3 
7 414 0473 2 RETURN; ! Success : 
3; 415 0474 2 | : 
; 416 0475 1 END; ! End of routine PASSSINIT_WRITE ‘ 
ghia PASS$S$LOOK_AHEAD ° 

e-EXTRN PASSK_ F ILNOTOPE : 

*EXTRN PASSK— _FILNOTTEX 3 

eEXTRN PASSK— _F ILNOTGEN : 

06 06 A6é E8 00000 PASSSINIT_WRITE:: : 

BCBS 6(PFV), 1$ 3: 0445 : 

000000006 00 16 00004 JSB PASS$1 OOK AHEAD > 0447 : 

08 07 6 F EQ OQOOOA 1$: BBS #5, 7(PFVS, 3; 0453 3 

E D4 0000F CLRL 0s = ¢ §P) > 0455 3 

7E 00G 8F 34 0011 MOVZBL #PASSK_FILNOTOPE, -(SP) : FY 

17 «11 pot BRB 3 3 

08 F8 A? €E8 00017 2$: BLBS -B8(FCB), 3$ 3; 0461 3 

7E p 1B CLRL - 3; 0463 é 

7E 006 7 19 9 Naa #PASSK_FILNOTTEX, -(SP) ; : 

0D FD AT 4 €0 a3 3$ BBS -3(FCB), 5$ > 0469 : 

E D4 000 3 CLRL Os = §P) > 0471 : 


PASSWRITELN2 
1-002 


3; Routine Size: 


WRITELN or 
PASSSINIT 


04 
0 


54 bytes, 


76 
77 


ocedure 


a6 
000000006 0 


1 
1 !<BLF/PAGE> 


Routine Base: 


WRITE = Common setup for WRITE 


006 st 


PASSCODE + 


proces EeeBcy 38S 93:28:88 


9A 


08 


SHE st 


00E5 


1 
1 
A 
5 


58: 


MOVZBL #PASSK_F 
CALLS #2, PA 
RSB 


AX 


-11 Bliss-32 V4.0-7 


PASRTL.SRCIJPASWRITEL. : 231 


sss 


LNOTGEN, -(SP) 
SIGNAL 


== 


12 
PASSWRITELN2 WRITELN procedure 16-Sep-1984 02:26: AX-11 Bliss-32 V4.0-74 Page 12 
ett PASSSEND WRITE = Common epilogue for WRITE proc 1a-Sep- 3B 95:48:68 PASRTL SRE SPASHNI TOL 69251 ° (6) 
; 420 0478 1 XSBTTL 'PASSSEND WRITE = Common epilogue for WRITE procedures’ 
; 421 479 1 GLOBAL ROUTINE PASSSEND_WRITE ( | 
; 6 ¢ BeEo 1 PFV: REF S$PASSPFV_FILE_ VARIABLE, ' File variable 
s & 481 1 FCB: REF SPAS$FCB”-CONTROL_BLOCK ! File control block 
: 424 tes 1 ): JSB_END_WRITE NOVACUE = 
: 426 484 1 !44 | 
3 : 4 tH ! FUNCTIONAL DESCRIPTION: 
3; 429 0487 1! This procedure is called at the end of every WRITE procedure | 
; 430 0488 1! to yertere common functions. These are: 
s ¢3 9834 13 - Move last character written to user's file buffer. 
3; 4 ; 490 1! 2. Check for PROMPT_ALWAYS and output partial Line if 
s 65 0491 1! pecesserys 
: 434 prs 7% 3. Set STATUS to zero, undefine file buffer and unlock 
; 435 0493 1! file variable. 
: 436 0494 1! 
3; 437 0495 1 ! CALLING SEQUENCE: | 
; 438 0496 1! 
3; 439 0497 1! JSB_END_WRITE PASSSEND_WRITE (PFV.mr.r, FCB.mr.r) 
; 440 0498 1! 
3 4641 0499 1 ! FORMAL PARAMETERS: 
3 644 0500 1! 
3 44 0501 1! PFV - The Pascal File Variable (PFV) passed by reference in R2. 
3 tae F404 } The structure of the PFV is defined in PASPFV.REQ. 
; 446 05046 1! FCB - The File Control Block of the file. 
: 447 0505 1! 
: 448 0506 1 ! IMPLICIT INPUTS: 
: 4469 0507 1! . ; 
; 450 0508 1! It is assumed that the file is a textfile, is locked and is 
3; 451 0509 1! in Generation mode. 
; 452 0510 1! 
; 453 0511 1 ! IMPLICIT OUTPUTS: 
3 6454 o216 & 
3; 455 051 1! NONE 
; 456 0514 1! 
; 457 0515 1 ! ROUTINE VALUE: | 
; 458 0516 1! 
3; 459 Osi, 3% NONE | 
; 460 0518 1! 
3; 461 0519 1 ! SIDE EFFECTS: 
: 462 0520 1! 
; 463 0521 1! NONE 
> 464 09¢¢ 1 i | 
3; 465 05 1 ! SIGNALLED ERRORS: 
3 466 0524 1! 
3; 467 0525 1! NONE 
; 468 b2 6 1 !-- 
Py 469 5 7 1 j 
; 470 0528 BEGIN 
: 471 B283 
: 47 b2 0 '¢ 
; 47 531 ! If file buffer is not NOREAD, store the last character written to the 
: 474 b296 i Line into the user's file buffer. However, don't do it if there are 
; o32 O2e7 } no characters in the Line! 


12 
1§- ep AX-11 Bliss-32 V4.0-74 Page 3) 


PASSWRITELN2 WRITELN procedure $ 1 
1-002 PASSSE ND UR WRITE = “common epilogue for WRITE proc 14-8ep- 1982 93: 8: 68 PASRTL.SRCJPASWRITEL.B32;1 (6) | 
s 4677 0535 
; +8 82 $ 1f (FCB CFCBSA_RECORD_CUR] NEQA .FCB CFCBSA_RECORD_END]) AND NOT .FCB CFCBSV_NOREAD] | 
$ | 
3 ret be CHSWCHAR (CHSRCHAR(.FCB CFCBSA_RECORD_CURIJ-1), .PFV CPFVSA_BUFFERJ); | 
: 48 0540 \+ 

; 288 0541 i If the file has the attribute PROMPT ALWAYS, write out the partial | 
: 484 p206 i record. 
> 485 054 i. 

: 486 0544 
3 rt Bee? if -FCB CFCBSV_PROMPT_ALWAYS] 
: 489 bac$ PASSSPROMPT_FILE (PFV CPFVSR_PFVJ, FCB CFCBSR_FCBI); | 
: 490 0548 

: 491 0549 1+ 

; 49 Beeo ' Set STATUS to indicate success. 

; 49 551 ' Unlock file variable. 

> 494 b226 2 !- 

; 495 055 

; 496 0554 FCB CFCBSL -STATUSJ = 0; 

; 497 0555 PFV CPFVS$V_LOCK] = 0; 

: 498 0556 2 

: 499 0557 2 RETURN; ! Success 

; 500 0558 2 

; 501 0559 1 END; ! End of routine PASSSEND_WRITE 


~-EXTRN PASSS$PROMPT_FILE 


50 EC A7 DO 00000 PASSSEND_WRITE:: 
MOVL -20(FCB), RO : 0536 
FO A? 50 D1 00004 CMPL RO, -16(FCB) : 
0A 13 90008 BEQL 1$ : 
05 F8 OAT 03 £0 OO00A BBS #3, -8(FCB), 1$ ; 
00 86 FF Ad 90 9000F MOVB -=1(RO), a0(PFV) : 0538 
FE AZ? 95 00014 1$ TSTB = = 2 (FCB > 0545 
06 18 00017 BGEQ 2$ : 
000000006 00 16 00019 JSB PASSSPROMPT_FILE : 0547 
07 Ab BO BF BA Oboe Bt ehe «© #tg8, acPFVD i Gees 
BS $039 RSB : 0559 
; Routine Size: 40 bytes, Routine Base: _PASSCODE + 011B 


0560 1 
0561 1 !<BLF/PAGE> 
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PASSWRITELN2 WRITELN procedure 16-Sep-1984 02:26: AX-11 Bliss-32 V4.0-74 Page 14) P 
1008 PASSSDO_URITEV - Do a WRITEV 13-808-1 382 95:48:48 PASRTLe $RESPACUNT ToL 69251 . (7), 1 
; 505 563 1 XSBTTL 'PAS$$DO WRI TEV - Do a WRITEV' : 
5 BS 65 1 GLOBAL ROUTING PASS$DO_WRITEV ( 3 
: 0 564 1 PFV: REF PASSPFV_FILE_VARIABLE, ! PFV of a file $ 
; 508 0565 1 MAX_LENGTH: WORD ! Maximum Length of string : 
; 509 066 1 STRING: REF VECTOR WORD], i String to write to ; 
: 510 0567 1 ARGUMENT_LIST: REF VECTOR L, LONG), i Argument List ; 
s STi 0568 1 ROUTINE R ' Routine to call ; 
; aig B25? 1 ): JSB_BO_WRITEV NOVALUE = ; 
: 951 570 1 3 
; 514 0571 1 !4+ 3 
3 $15 8276 1 ! FUNCTIONAL DESCRIPTION: : 
; 218 Bae 1! : 
: le 0374 1 | CALLING SEQUENCE: | : 
; 519 0376 1! JSB_DO_WRITEV PASS$DO_WRITEV (PFV.mr.r, MAX_LENGTH.rw.v, STRING.wvt.r, ; 
; 239 bere : ARGUMENT_LIST.rlu.r,ROUTINE_ADDR. fzem.r) | : 
; 256 0579 1 =! FORMAL PARAMETERS: : 
> 32 0580 1! ; : 
: 2$¢ 0581 1! PFV - Pascal File Variable allocated by our caller. 3 
s 325 b28¢ 1! It is filled in here. : 
; 526 0583 1! 5 
3 Ser 0584 1! STRING - The varying string to append to. F 
; tee 0585 1! 3 
3 267 p2e8 ! ARGUMENT_LIST = Argument List for a CALLG : 
; $a) 0588 1! ROUTINE _ADDR - The address of the PASSWRITE_xxx routine to call | : 
3; Doe 0589 1! to actually do the work. ; 
3 Sao 0590 1! 3 
> 534 0591 1 =! IMPLICIT INPUTS: F 
s 355 B26 1! 5 
: 536 0593 1! NONE 3 
3; 537 0594 1! 3 
; 538 0595 1 ! IMPLICIT OUTPUTS: 3 
; 539 0596 1! 3 
; 540 0597 1! NONE 3 
: 4541 0598 1! 3 
3 206 0599 1 ! ROUTINE VALUE: : 
: 54 0600 1! F 
3 65446 0601 1! NONE 3 
3 «4545 b60¢ 1! 3 
3; 546 0603 1 ! SIDE EFFECTS: 3 
> 547 0604 1} 
; 548 605 1! See called routine 
3; 549 606 1! 
; 550 0607 1 ! SIGNALLED ERRORS: 
3; 551 0608 1! 
3 236 0609 1! NONE 
: 39 0610 1! 
; 554 9611 1 i-- | 
3 $2? olg 1 
; 56 53 BEGIN 
3 S37 614 
; 558 Bet? LOCAL 
; 223 oig FCB_BLOCK: SPASS$FCB_CONTROL_BLOCK; ' File Control Block 
; 26 bei8 BIND 
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12 
edure 1hess -1984 726: AX-11 Bliss-32 v4 
EV = Do a WRITEV 12288-1388 95:48:68 PASRTL. SRC IPASWR 
FCB = FCB_BLOCK + FCBSK_BLN: SPASSFCB_CONTROL_BLOCK; 
BUILTIN 
CALLG; 


+ 
Set up the Pascal File Variable 


PFV CPFVSA_BUFFER) = 0; ! No file buffer 

PFV CPFVSB-VERSION] = PFVS$K_CUR_VERSION; ‘ PFV version number 

PFV [PFVSW_FLAGSJ = 0; ! Initially zero bits 
PFV CPFVS$V_VALIDJ = 1; ! PFV is va 

PFV CPFVSV_FCB yA IP = 1; ! FCB address is valid 
PFV CPFVS$V_OPER) = 1; ' File is "‘open’’ 

PFV CPFVSV-EOF DEFINED) = 1; i EOF(f) is defined 

PFV CPFVSV-DFBI = 1; i File buffer is defined 
PFV CPFVSA_PFD] = PFD_WRITEV CPFDSR_PFD]; | Address of PF 

PFV CPFVSA-FCB) = FCB-CFCBSR_FCB); i Address of FCB 


‘4 
' Set » | the File Control Block (FCB). Only set those fields which 
e 


will used. 

FCB Sangeet = PFV CPFVS$R_PFV] ! Address of PFV 

FCB CFCBSA_PFD) = PFD_WRITEV-CPFD$R PFD]; | Address of name 
FCB CFCBSW_ATTRIB) = [PFD_WRITEV CPFDSW_ATTRIBI; ! Attributes 
FCB LFCBSL_OPTIONS1) = 0; ! Initially 0 

FCB LFCBSV_GENERATION] = 1; ! In Generation mode 
FCB CFCBSV_STRING) = 1; ! String file 

'¢ 


Get the “‘Line’’ pointer and length, and set the FCB accordingly. 


CB CFCBSA_RECORD_BEG] = STRING (1); ! Skip over current Length 

CB CFCBSA_RECORD-CUR] = .FCB CFCBSA_RECORD_BEG)] + .STRING [0]; 

CB CFCBSL-RECORD-LEN] = MAX LENGTH: 

CB CFCBSA_RECORD_END] = .FCB CFCBSA_RECORD_BEG) + .FCB CFCBSL_RECORD_LEN); 


+ 
Call the appropriate routine; 


CALLG (ARGUMENT_LIST [CO], .ROUTINE_ADDR); 

'¢ 

Update the current string length. 

STRING CO] = .FCB CFCBSA_RECORD_CUR] - .FCB CFCBSA_RECORD_BEGI; 

RETURN; ' Success 

END; ! End of routine PASS$SDO_WRITEV 
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Lexenes/CPU-Min: 21735 
ry Used: 
— ation Complete 


99 pages 


12 | 
PASSWRITELN2 WRITELN proc 18-Sop-1 9 AX-11 Bliss-32 V4.0-7 Page 17 
1-602 PASSSDO_ORITEV = Do @ URITEV 10-88-1986 19:59:08 EPASRTL SRE SPASURI TEL B92: 1 9 (8) | 
: 621 677 1 END ! End of module PASSWRITELN2 | 
; 633 Oer8 1 | 
; 6 679 0 ELUDOM 
| 
; PSECT SUMMARY 
; Name Bytes Attributes 
: PASSCODE 419 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | 
; Library Statistics 
ao ee he See Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped me 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 8 0 581 00:01.0 
; ~$255$DUA28: CPASRTL.OBJJPASLIB.L32;1 427 130 30 33 00:00.4 | 
| 
H COMMAND QUALIFIERS | 
4 PL SSS/CMECR OLY ELD. BNE TIAL OPTIMIZED /DTRACE A, 1904. 198 1PREUNE TEL (OR J9OBIS 2 PASI TEL MSRC$:PASWRITEL/UPDATE=(ENH$:PASWRITEL 
Size: 398 code + 21 data bytes 
Run Time: 00:12.8 
Elapsed Time: 00:28.5 
Lines/CPU Min 3190 
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